INSTANT SORTING 

Robert C. Fischer 

2068 madre cor 

In the May-June ‘86 issue of SyncWare News, I went through 
several sort routines for the 2068 and 1000 computers. For 
general use, I decided that the Sheli-Faulk was the best 
&@&lile-round choice, but I also asked readers to send in any better 
ideas. One reader did, Larry Crawford of London Ontario, Canada. 
He took the Sheli-Faulk and converted it to machine code. 
Between the two af ug, we have worked out bugs, shortened it, 
and made it mare flexible. This routine will work on either the 
2068 of Spectrum, but it should only take a little hacking to 
convert to a 1000. 


Let's get right to the issue of speed. Below is a comparison of 
the Shelil-Faulk in BASIC and machine code at sorting files which 
are each 1O characters long. 


BASIC MACHINE CODE 
“0 files = 11.8 sec a EC 
Loo a 29.9 és 
OO m 74.8 PR i 
4c = 184.0 1.8 
ERHO moo ARa C 4,9 
LED we LOS, OD 15.0 
SOO mo 4, 47.0 


Maybe instant isn’t the best word for it, but I think most 
people would be happy with this much speed. It works with any 
two dimensional string array (this is not for numbers ~ sorry) 
with any name and you can change the dimensions at will. A few 
BASIC statements relay certain key bits of information to the 
machine code before it is called. 


First type in the following lines of BASIC: 


10 LET X#i00s LET L=iO: DIM N& 
(X+l, L): FOR Z=1 TO X: FOR N=1 T 
O Ls LET N (Z, MD =CHRE INT (45+RN 
Deco): NEXT N: NEXT Z: PRINT "RE 


ee PO, XW RSSGHINT (X/256 
WEE Sad., INT (X72856): POKE 
oe PE y LR SOe INT (7/256): POKE 23 
279, INT (L/256): LET N#(X+1) =N& ( 
Xt): POKE 23300, PEEK 2629: POW 
E AIII, PEEK 2620 

20 LET Nẹ{(1)sNë{(1): RANDOMIZE 
USR 61402 

100 BEEP .5,30: FOR Z=1 TO X: P 
RINT N@(Z): NEXT Z: STOF 
9990 CLEAR 61389: LOAD "“sort"COD 


E 612390: GO TO 1 

9999 SAVE "SORT" LINE 9990: BEEF 
ea 402 SAVE "sort CODE 61290, 24 

9: BEEP 3,402 CLS: PRINT “REWIN 

D TO VERIFY": VERIFY "SORT": VER 
IFY "sort CODE S1390, 249 


Line 10 just sets up some random files for testing purposes as 
was done in the BASIC version of the sort. One change is that we 
dimension N® for one extra file space. Thus, if X=100 we 
actually dimension N€(101,L). This extra space is only used as a 
temporary storage area as files are moved. Never use it to store 
data, Be sure to set up this extra file space in your own 
programs too. AS you test this program, feel free to set X (the 
number of files) and Lo (the length of files) to any values the 
computer has roam far, If your own programs do not use NS for 
storage, just change all references ta N& to be the name you 
want. The same applies to the use of X and LL. 


Ling 20 begins the part of the routine you use in your own 
programs. It sets up the machine code pointers beginning with 
PORE 23296 and 23297 with the number of files to sort (X9 not 
including the extra file. You could POKE a lower value than X if 
you only wanted to sort same of the files such as the first 50. 
Next we FOKE the length of each file into 23298 and 23299. The 
two storage areas for size and length are to allow values larger 
than 255. This way you can have thousands of values of 
considerable length. 


The statement LET N®CX+1)=N@(X+1) is used to make the computer 
store the address of the extra file in a special place called 
"dest". This is found at 23429 and 23630. Therefore we take the 


contents of those addresses and put them in 233500 and 23301 sa 
the machine code can access it later. 


All these PORES are made into the printer buffer as are all 
variables created by the machine code itself. This is one reason 
the program is completely relocatable. If you do relocate the 
machine cade, da nat change the location of any POKES! 


Line 30 tells the routine where to find the first file to sort, 
but instead of poking the location as before, we let the machine 
code access “dest” directly. You can make the routine start 
sorting after the first file if you wish. To start with the lith 
file, just make the statement read: LET N&(11)"=N@C11). Also be 
gure you have adjusted the total number of files to sort as 
well. If X=100, then by starting at file number li, we would 
only sort 90 files. Without this correction, the routine would 
Overwrite other variables. The machine code is then called and 
the sorting is done. 


Lines 20 and 30 are the only BASIC lines you need to use this in 
YoUr OWN programs. The actual line numbers are not important and 
the two lines can be combined if you wish. The remaining lines 
are only used to allow you to practice on this example, but are 
not meeded in your pragrams. Line 100 prints out the sorted 
files. Line 9999 is for making a copy of the program (enter RUN 
9999) and verifying it after the machine code is in place. When 
reloaded, line 9990 sets RAMTOF and loads the machine code. The 
test procedure then begins. Depending on the values you set for 
X and L, the setup can take quite some time ~ certainly longer 
than the sorting process. After you have saved a copy, you can 
test without reloading by entering RUN 


The machine cade can be moved to any position you prefer as lang 
as you have roam for 249 bytes. Remember that the RANDOMIZE USR 
address must be 12 bytes past the start of the machine code. If 
you load it in at 65000, then RANDOMIZE USR 465012. Also adjust 
the save and load commands to reflect the change. 


To enter the machine code, first enter CLEAR 61389. Now enter 
the following lines which will load the machine code beginning 
at 61290: 

1000 FOR N=61 290 TO 4614358 

1010 INFUT “ENTER NUMBER “aP 

1OiS FORE N,F 

1020 PRINT Net tse 

1030 NEXT N 

1040 STOF 


Now enter RUN 1000 and then enter one number at a time as listed 
below. The numbers are listed in order horizontally sa finish 
the first row ACROSS before going to the second line. 
A, EA 

i? D Fi DS 22 71 1 zi oO GE? 

176 201 42 o 7i z4 10 371 34 2 

71 42 te 91. 175 203 ag OS 29 134 

igi 40 223 203 197 34 12 Sl 229 2395 

Aa 10 F1 i175 227 gz 34 14 91 So 


i 5 K lé Fi 3 ig 7i 42 77 
92 i & Fl 237 71 2 91 195 25 
ri 220. -177 32 250 34 8 91 237 Fi 


& 71 237 Ja 2 Fi 26 190 56 11 


a 2 li 120 177 4g 4 Le ao 24 


24i 38 20 wi él oe 1100 225 z4 8 
91 225 3 & Fl ral z0 91 = 16 
91 35 aA lė F1 = 18 91 235 42 
14 91 175 237 Be 26 140 = & 71 

and 91 2 71 25 3 & Pi = 8 
F 25 24 177 4a & FA 23 9i 4 
91 237 75 2 91 215 197 229 237 176 
aie E 91. 209 193 229 197 237 176 193 

209 225 237 176 = 18 91 B37 91 12 
91 175 237 a 4h 18 91 wo 158 4g 

134 we ao Fl 254 0 32 i2 4 & 
Fl -229 4 8 91 229 60 SO ag Pi 
42 & Fi 3 3 91 22 vo 73 2 
91 237 7I 12 91 479 237 b6 27 2a 

179 oa 248 3 6 91 2253 24 159 


When all the numbers have been entered, delete all lines from 
10900 to 1040 and make your backup copy before testing the 
program, 


The logic of the machine code closely follows that of the BASIC 
version. AS I explain the machine code, I will refer to the 
original BASIC version often so here is a listing of the sort 
portion of that routine sa you can better follow along: 


1o30 LET M=X: LET S=M | 
1100 LET SINT (5/2): IF S<1 THE 
N GO TO 9900 

1115 IF S/2=INT ($/2) THEN LET S 
tsaa | 

Li2o FOR N=1 TO MS: LET J= 
1150 TF N$ (J) NEJA) THEN LET D 
aNg (JD: LET NSCS) =N (J45): LET 
NE (J+H) =D$: LET J=J-S: IF J>0 TH 
EN GO TO 1150 

L160 NEXT N: GO TO 1100 


Here is a description of the machine code: 


í 


Pa 


A 
PAF aa U j 
L ALAMA KE, 
+ OK 
Oant 
A h 


y 


EFCE LD DE, 5800 The start of the machine code is 
at 612390, This is actually the end of the 
sort where the printer buffer is cleared of 
data. DE is set to the start of the buffer 
which is also the start of the machine code 
variables. 

EFDL LO HL, BBLS HL is set to a point in the buffer 
that is not affected by the me and still 
CONTAINS zeros. 

EFDA LD BO, 0015 BO holds the number of 

bytes 
affected by the machine code routine. 

EFDY LDIR This command moves whatever is in the 
address repregented by HL into the DE 
address. HL and DE are each incremented to 
the next address while BC ig reduced by la 
This repeats until BCe=0 which also means the 
buffer is clear so your next LFPRINT wan't 
Print any garbage. 

EFD? RET Return to BASIC (sort done) 

EFDA LD HL, (SBo00) The actual sort starts here 
from BASIC (address 61402). HL is loaded with 
the value of X which was poked into SBOO from 
BASIC. 

EFDD LD, (SBO8) , HL Put X in storage for M. Same 

as M=X in line 1050. 
EFEO LD (SROC), HL Aleo put in storage for &. Same 
as S=M in line 1050. 

EFES LD HL, (5ROC) This starts line 1100. Get 

value of § 

EFES XOR A Clears carry flag before RR 

instruction and zero the A register 

EFEZ RR H 

EFEF- RR L These 2 instructions get the integer 
Value of HL/2. Thus it is the same as INT 
(S/2) im iis, 

EFEB LD A,H 

EFEC OR L A 

EFED JR Z,EFCE Tf Hi=O (SO) then sort is done so 

clear printer buffer before going to le 
BASIR 

EFEF SET Ok Set bit zero of L to make sure it is 

an odd value (line 11159). 
EFFI LD (SRO), HL. Store new value of &, 


EFF 4 PUSH HL Fush S on stack. 

EFFS EX DE, HL Put S value in DE 

EFFG LD HL, (BBA) Get M value 

EFF? XOR A Clear carry flag before subtraction 
EFFA SEC HL, DE Calculate Meg 

EFFC LD (SBOE) , HL Store M-S 

EFFF LD HL, 0001 Prepare for FOR-NEXT loop 


Foose LD (SB10),HL Store in WN. Thus loop starts 
as Me] 


FOOR 
FOOS 


FODE 


FOE 
Foiz 
F013 
FOLA 
F015 
Fol 
FOL? 
F019 
FOLIC 
Pog 
Food 
Fors 
F026 
Fome 


FORA 


FO2E 
Foe 
FOwD 


FORF 
FORO 
FOR 
FOSS 
FOSS 
FOR? 


FOR 


FUSA 
FOSD 


FOSE 
Fogi 


/ 
f f 
Agni Lv gek 
s 2 
LD (SB12), HL Put in J ¢7=N). See line 1120 


LD HL, GSC4D3 4C4D is the address af "deat", 
go this shows where the first 


file is. 

LD (HE06), HL Store address of Firet file in 
Nae CT) 

LO DE, (5502) Get the length of each file 

BOP BE Get S value 

ADD HL, DE 

DEC BC 

LD A,B 

OR E 

JR NZ, FOLS These lines find the address of 


file N®(J+5) 
LD (S808) , HL Store N€(J+5) address. See 1150 
LD DE, (S804) Get N$ CD address 
LD BC, (SBO2) Get file length 


LO A., (DE) Bet a character from N$ (J) file 

CF AHL?) Compare to character in Né¢J+S) file 

JIR C FOR Jump if the order is okay to 
the preparation for NEXT N 

JRO NZ, FOéS Jump to swap routine if order 
is wrong 

DEC BC If the characters are the same then 


we continue to compare the two files by first 
decrementing the number of file characters to 
check. 

LD A,B 

OR G 

JR Za F OSa These lines check to see if BC=0, 
thus all characters are checked. If soa then 
jump to NEXT N. 

INC DE 

INC HL. 

JR FOR4 To continue comparing the two files, 
we move HL and DE to the next characters and 
jump back to compare again. 

LD A, (GB14) This starts the preparation far 

NEXT M. 
DEC A Since the FLAG was either zero or one, 
this will make it zero or 255, 

JR NZ, FO44 Tf it is SSS, the flag was moat 

get go jump ta NEXT Ma 

FOF HL It the flag was set, get old Nẹ (J+) 
address. This is the address before we did 
LET JeJ+S in line 1150. 


LO (BBO) , HL. Store in Nẹ(J+5) 

FOF HL Get old Nẹ(J) — what it was 
before LET J=7-S. 

LO (S806) HL Store in N®¢s) 

LD (S14) ,8 The A register is zero so this 
clears the FLAG. 


FO44 


FO47 
F048 
FO4B 
FO4E 
FO4F 
FOSZ 
FOSS 


FOSS 


FOS7 


Foe 
FOSE 
FOF 
FOéS 
Foos 


POSS 
POHE 


FOSE 


FoF 


Foy is 
Foy 4 
F075 
FOS 
FOovS 
FOE 
FO7C 
FOoyD 
POPE 
POSE 
FOS. 
Foo? 
FOS 
potia 
FoR 
ERG 
Fog 
Fogg 
FORD 
FOoS 
Fogg 


FO97 


LOD HL, (ORLO) NEXT N begins here. First get 
old No value. 

INC HL To next value of FOR-NEXT loop 

LO (3610) , HL. Store new N value 

LO €SEi2), HL Store in J too (JN) 


EX DE, HL Fut J value in DE 

LD HL, (SBOE? Get M-S value 

XDR A Clear carry flag 

SEC HL, DE Subtract (M-S)-J to gee if FOR- 

NEXT is done. 

JR C EFEZ If J is more than M-S, then the 
loop is done so jump back to me version of 
line iodo, 


LD HL, (5R06) If loop is not dane, get Nett) 


address. 
LD DE, (5802) Get length of file 
ADD HL, DE Puts HL at next file 


LD (3804) , HL Store new NCS) address 
LD HL, (SRO) Get N@¢T+5) address 


ADD HL, DE HL at next file (new Ne ¢.7+5) 
address) a. 
JR FOU? Go back and sort again 


LD HL, (SROS) Start the file swap here. Get 
BEC) address, 

LO DE, (HE04) Load DE with the extra N® file 
address which is used as Dë in the BASIC 
Yersian. 

LD BC, (5802) Get file length so we know how 

many bytes to move. 


PUSH DE Save Df address 
PUSH BC Save file length 
PUSH HL Save NOT) address 
LOTR Fut file Né(7) in Ds 
LD HL, (SBO@) Get N$ (J+5) address 
POF DE Get N07) address 
FOF BC Get length of file 
PUSH HL. Save Nei t+) 

PUSH BC Save length 

LOTR Put N@OT+5) in Nes) 
POF BC Get length 

POF DE Get N&C7+5) address 
FOP Hi. Get D$ address 

LO TF Fut Df in N®(J+S) 


LD HL, (5812) Get J value 
LD DE, (SBOC) Get S value 


XUR A Clear carry flag 

SEC HL, DE Calculate J-5 

LO (SRLS) ,HL Store new J value 

JR Ca FODA 

JR 2,FO233 If J is less or equal to zero, 


then go to prep for NEXT N.a 
LD A, (5814) This starts our preparation to 


go line 1156. First get FLAG. 
FOSA CR 00 Compare FLAG to zero 
Fog JR NZ, FOAA Jump if FLAG already set 
Foge LD HL, (34) If FLAG is mot set, we must 
save the present address of N@(7), so first 
get NCD) addrege. 


FOAL FUSH HL Save N@¢y> address 

FOAS LOD HL, (S08) Get N@(7+95) address to save too 
FOAS PUSH HL Save it 

FOAS INC A Make A register hald ił 

POA? LD (5814), ð Use it to set FLAG 


FOAA LD HL, (S306) Get N$ (J) address 
FOAD LD (S809), HL. Put it in N${(J+5). This 
allows for LET J=J~-s, 
FOBO PUSH HL. Save address of N${J+5) 
FOBI LD BC, (5B02) Get file length 
FORS LD DE, (SB0C) Get § value 
FOB? XOR A Clear carry flag 
FOBA SEC HL, BC 
FORC DEC DE 
FORD LD A,D 
FORE OR E 
FORF JR NZ, FORS These adjust the address of 
NiD) because of the LET J=7-5 
commanda 
FoCi LD (5804), HL. Store new Net) address 
FOC4 POF HL Get N$ (J+5) address 
FOCS JR FOé6 Now go back to sort again. The 
jump is toa far for a relative jump so it is 
dane in two steps. First to FOé56 which then 
goes to FOLS, 


The variables are all found in the printer buffer as follows: 


SBOO-SBOL (23296-7) X value from BASIC 
SROR-SROS (23298-7) Length of file from BASIC 
SRO4-SHOS (SEROO-1) Extra file address from BASIC 
ShOS-SRO? Ni) address 

SaOS-SRO9 N#t7+S) address 

SEDA- HRUE (23306 7) FH value 

SBOC-SBOD (SEROS- 9) 5 value 

SROE-SBOF (238410-1) H-5 value 

SHLO-SRLL (23312-3) N value 

SRLiS-SBIS (233414-5) Jo value 

SBi4 (23316) FLAG 


AS always, let me know if you have any better ideas (BASIC or 
machine code). The address is: Robert C. Fischer; 804 Old York 
Hwy: Apt 3B; Dunlap, TN 3732 


Right off the MSCRIFT 


INSTANT SORTING 
by 
Robert C. Fischer 


In the May-June ‘86 issue of SynecWare News, I went thro 
ugh several sort routines for the 2069 and 1000 compute 
re. For general use, I decided that the Shell-Faulk was 
the best all-round choice, but I also asked readers to 
send in any better ideas. One reader did, Larry Crawfo 
pd of London Ontario, Canada. He took the Shell-Faulk a 
nd converted it to machine code. Between the two of us, 
we have worked out bugs, shortened it, and made it mor 
@ flexible. This routine will work on either the 2068 o 
r Spectrum, but it should only take a little hacking to 
canvert to a IOO. 


Let's get right to the issue of speed. Below is a compa 
pisan of the Shelil-Faulk in BASIC and machine code at s 
arting files which are each 19 characters long. 


BASIC MACHINE CODE 

SO files = 11.8 sec wa ERC 
Lao sts 2069 ne 

200 = 74.9 Pays 

400) = 184.0 1.8 

Bog = 43, O 4,9 

1600 = LO49,0 15.0 

S200 a PAOF. O 47.0 


Maybe instant isn’t the best word for it, but I think m 
ost people would be happy with this much speed. It work 
$s with any two dimensional string array (this is not fo 
ronumbers = garry) with any name and you can change the 
dimensions at will. A few BASIC statements relay certa 
im key bite of information to the machine code before i 
t ig called. 


First type in the following lines of BASIC: 


10 LET X=1O00: LET Lela: DIM Ne 
Xt h): FOR Z=1 TO X: FOR N=1 T 
O Les LET N@¢2,N)=CHRS INT (45-+-RN 
D26): NEXT N: NEXT Z: PRINT "RE 
ADY“: BEEP .3,40: PAUSE © 


20 POKE 23296, X- 256#INT (X/256 
): POKE 23297, INT (X/256): POKE 


Zaag, L-256#INT (L.7/256): POKE 23 
aa, INT (7256): LET Ne OX+1) =N ¢ 
Xti): FORE 23300, FEEK 23629: POK 
E 23701, PEER 23630 


ES 
IN 
LS 
© 
~e 


oO LET Nẹil)=NẸ{(1): RANDOMIZE 
USR 61402 

100 BEEP .5,30: FOR Z=1 TO X: F 
RINT Nẹ{(Z): NEXT Z: STOF 
9990 CLEAR 61389: LOAD “sort” cpp 
E 61390: 60 TO l 
9999 SAVE "SORT" LINE 9990: BEEF 

om, 40: SAVE “sort"CODE 61390, 24 
9: BEEP 5,40: CLS: FRINT “REWIN 
D TO VERIFY": VERIFY "SORT": VER 
IFY "“sort"CODE 61290, 249 


Line IO just sets up some random files for testing purp 
oses as was done in the BASIC version of the sort. One 
change is that we dimension N® for one extra file space 
» Thus, if X=100 we actually dimension N#(101,L). This 
extra space is only used as a temporary storage area as 

files are moved. Never use it to store data. Be sure t 
0 set up this extra file space in your own programs too 
» Âs you test this program, feel free to set X (the num 
ber of files) and L (the length of files) to any values 

the computer has room for. If your own programs do not 
use Në for storage, just change all references to N® t 
Go be the name you want. The game applies to the use of 

x and LL. 


Line 20 begins the part of the routine you use in your 

own programs. It sets up the machine code pointers begi 
nning with POKE 23296 and 23297 with the number of file 
s to sort (XX) mot including the extra file. You could F 
OKE a lower value than X if you only wanted to sort som 
e of the files such as the first 50. Next we POKE the 1 
ength of each file into 23298 and 23299. The two storag 
e areas for size and length are to allow values larger 

than 255. This way you can have thousands of values of 

considerable length. 


The statement LET N#(X+1)=NS(X+1) is used to make the c 
aomputer store the address of the extra file in a specia 
l place called "dest". This is found at 23629 and 23420 
© Therefore we take the contents of those addresses and 
put them in 23300 and 23301 so the machine code can ac 
cess it later. 


All these PORES are made into the printer buffer as are 
all variables created by the machine code itself. This 
is one reason the program is completely relocatable. I 

f you do relocate the machine code, do not change the 1 

ocation of any POKES! 


Line 30 tells the routine where to find the first file 
to sort, but instead of poking the location as before, 
we let the machine code access "dest" directly. You can 
make the routine start sorting after the first file if 


ALT 3 


you wish. To start with the lith file, just make the s 
tatement read: LET N@C1LI=NB (11). Also be sure you have 
adjusted the total number of files to sort as well. If 
X=21OO, then by starting at file number Li, we would on 
ly sort 9O files. Without this correction, the routine 
would overwrite other variables. The machine code is th 
en called and the sorting is done. 


Lines 20 and 30 are the only BASIC lines you need to us 
e this in your own programs. The actual line numbers ar 
e not important and the two lines can be combined if yo 
u wish. The remaining lines are only used to allow you 
ta practice on this example, but are nat needed in your 
programs. Line 100 prints out the sorted files. Line 9 
999 is for making a copy of the program (enter RUN 9999 
) and verifying it after the machine code is in place. 
When reloaded, line 9990 sets RAMTOFP and loads the mach 
ine code. The test procedure then begins. Depending on 
the values you set for X and L, the setup can take quit 
e some time ~ certainly longer than the sorting process 
» After you have saved a copy, you can test without rel 
oading by entering RUN 


The machine code can be moved to any position you prefe 
roas long as you have room for 249 bytes. Remember that 

the RANDOMIZE USR address must be 12 bytes past the st 
art of the machine code. If you load it in at 45000, th 
en RANDOMIZE USR 63012. Also adjust the save and load c 
ommands to reflect the change. 


To enter the machine code, first enter CLEAR 613589. Now 
enter the following lines which will load the machine 
code beginning at 61390.: 


1000 FOR N=61290 TO 461658 

1010 INFUT “ENTER NUMBER "P 

1015 FORE N,F 

1020 PRINT Net! "P 

Lozo NEXT N 

1o40 STOF 

Now enter RUN 1000 and then enter one number at a time 
as listed below. The numbers are listed in order horizo 
ntally so finish the first row ACROSS before going to t 
he second Line, 


17 OQ 71 AR eae Fi i z oO a37 
176 201 2 o 91 a4 LES Fi i4 iz 
Fi 42 12 71 t75 Bon 2 203 2? 124 


181 40 223 203 197 34 12 91 229 B35 
42 10 91 175 237 82 34 14 91 33 


i O < 16 7I 3 18 ol = 77 
FJa 34h & G1. S237 71 wa 91 i93 ead 


ti A120. 177 32 250 et 8 91 237 91 


ee 


scrip? T 


& 91 237 75 = Fi 26 190 56 ii 
ae 2 li 120 177 40 4 19 ied 24 
241 we 20 Fi él 32 11 225 34 8 
91 225 z3 & 91 So 20 7i = 16 
D1 25 a ié 71 3 18 91 235 42 
14 91 #175 23 B82 56 140 2 6 Fi 
247 91 2 Fi 25 34 & Fi 2 3 
Fi ou 2 177 42 & 91i 237 Ji 4 
Fio 237 75 2 91 213 #197 229 237 176 
42 3 91 209 193 22 197 25 176 193 
209 225 237 176 42 18 7i 23 F4 2 
91 i175 23 82 3 i8 91 36 158 40 
136 38 20 71 254 Q 32 12 a & 
91 -22 42 3 91 229 bÜ wo 20 91 
2 6 Fi 34 8 91 229 237 75 = 
71 237 Fi iz 91 175 237 66 27 22. 
179? Ta 245 4 & 91 225 24 159 


When all the numbers have been entered, delete all line 
8 fram 1000 to 1040 and make your backup copy before te 
sting the program. 


The logic of the machine code closely follows that of t 

he BASIC version. Aas I explain the machine code, I will 
refer to the original BASIC version often so here is a 
listing of the sort portion of that routine so you can 
better follow alongs 


1050 LET M=X: LET S=M 

1100 LET SINT (572): IF §«1 THE 
N GO TO F900 

114145 IF S/2=INT (8/2) THEN LET 5 
mip 1 

1120 FOR N=1 TO M-S: LET J=N 
1150 IF Nẹ{J) N$ {(J+5) THEN LET D 
aNg Ji LET N (J) =N {(J+5): LET 
N@OJ+5)=D82 LET J=J-S: IF J0 TH 
EN GO TO 1150 

1160 NEXT N: GO TO 1100 


Here is a description of the machine codes 


EFCE LD DE, SOO The start of the machine code is 
at 61290. This is actually the end of the 
sort where the printer buffer is cleared of 
data. DE is set to the start of the buffer 
which is also the start of the machine code 
Variables. 

EFDI LD HL,SB1é HL is set to apoint in the buffer 
that is mot affected by the mc and still 
containes zeros. 

EFD4 LD BT., 0015 BC holds the number of bytes 
affected by the machine code routine. 

EFD? LDIR This command moves whatever is in the 


EF D9 
EFDA 


EF DD 


EFEO 


EFEZ 


EFES 


EFE? 
EFE9 


EFEB 
EFEC 
EFED 


EFEF 


EFFI 
EFF 4 
EFFS 
EFF SG 
EFF? 
EFFA 
EFFEC 
EFFF 
Fonz 


FOOS 
FOO 


FOOR 


FOE 
Foiz 
Foiz 
Fül 
FOIS 
FOLS 
Pou? 


M 2 Che AL 


address represented by HL into the DE 
address. HL and DE are each incremented to 
the next address while BC is reduced by 1. 
This repeats until BC=0 which also means the 
buffer is clear so your next LERINT won't 
print any garbage, 

RET Return to BASIC (sort done) 

LD HL, (BBO) The actual sort starts here 
trom BASIC (address 61402). HL is loaded with 
the value of X which was poked into 5B00 from 
BASIC, 

LO, (HEROA) , HL Fut X in storage for Ma Same 

as M=X in line 1050. 
LD (5B0C), HL Alea put in storage for &. Same 
as S=M in line 1080. 

LD HL, (3BOC) This starts line 1100. Get 

value of § 

XOR A Clears carry flag before RR 

instruction and zero the Â register 


RR H 

RR L. These 2 instructions get the integer 
Value of HL/2. Thus it is the same as INT 
(S/2) in 1100. 

LD A, H 

OR L 

JR Z EFCE If Rio (5=0) then sort is done so 


jump to clear printer buffer before going ta 
BASIC 
SET Oo, L. Set bit zero of Loto make sure it is 
an odd value (line L115). 
LD (BBOC) , HL. Store new value of &. 


PUSH Hi. Fush S on stack. 
EX DE, HL Put & value in DE 
LD HL, (SEO4) Get M value 
XOR A Clear carry flag before subtraction 
SBC HL, DE Calculate M-S 
LD (SEOE), HL. Store M-65 
LD HL, O00) Prepare for FOR-NEXT loop 
LD (SR10),HL Store in NN. Thus loop starts 
as Nel 


LD (SRi2), HL Fut in J ¢J=N). See line 1120 
LD HL, (3040) 304p is the address of "dest", 
so this shows where the first 


file is. 

LD (SRO) , HL Store address of first file in 
Ne OT) 

LOD DE, (5502) Get the length of each file 

FOP BC Get § value 

ADD HL, DE 

DEC BC 

LD A, B 

OR C 

JRONZ,FOUS These lines find the address of 


file N€(J+9) 


j 


VR Ue A 


Foi LD (SRO) , HL Store Me CI+) address. See 1150 
POLO LD DE, (506) Get NEC) address 
Foso LD BC, (58029) Get file length 


Foz4 LD A, (DE) Get a character from N&CT) file 

Fos CP CHL} Compare to character in N#¢J+5) file 

Foz JR C, FOSA Jump if the order is okay to 
the preparation for NEXT N 

Fog JR NZ, FOGH Jump to swap routine if order 
is wrong 

FOSA DEC BC if the characters are the game then 


we continue to compare the two files by first 
decrementing the number of file characters to 
check. 
POSE LD A,B 
Foz OR C 
FORD JR Z¿FO33 These lines check to gee if Bed, 
thus all characters are checked. If so then 
jump to NEXT WN. 
FoF INC DE 
FoOsO ING HL 
Fosi JR FOZ To continue comparing the two files, 
we move HL and DE to the next characters and 
jump back to compare again. 
POSS LD A, CSB14) This starts the preparation for 
NEXT WN. 
FOSS DEC A Since the FLAG was either zero or one, 
this will make it zero or 255. 
POS? JR NZ, F044 If it is 255, the flag was not 
set so jump to NEXT Ma 
FOS? FOP HL If the flag was set, get old N@®(J+5) 
address. This is the address before we did 
LET JeJ+5 im line 1150. 
FOSSA LD (5808), HL Store in N#(J+5) 
Fozp POF HL Get old N@(7) ~ what it was 
before LET J=J-, 
POSE LD (5806), HL Store in Ne ot) 
PO4i LD (CSB14),4 The A register is zero so this 
clears the FLAG, 
Foda LD HL, (5810) NEXT N begins here. First get 
old N value. 
POG? ING HL To next value of FOR-NEXT loop 
FPO48 LD (5810), HL Store new N value 
FOAR LO (SE12), HL. Store im J too (J=N) 


FOE EX DE, HL Fut J value in DE 
FO4PF LD HL, (SROE) Get M-S value 
FOSS XOR & Clear carry flag 


FOSS SEC HL, DE Subtract (M-S)-7) to see if FOR- 
NEXT is done. 
FOSS JR C,EFES If J is more than M-S, then the 


loop is dane so jump back to mc version of 
line 1100, 
POS? LD HL, (5806) IF loop is not done, get Nett 
addres. 
Fone LO DE, (SBO2) Get length of file 


FOSE 
FOF 
Foo? 
Foes 


F066 
FOSS 


FOGE 


FOSF 


Fo73 
Prey? 4 
F075 
FoF 
Fo7E 
Far? kt 
FO? 
FO?D 
FOvE 
FOF 
Fogi 
FOoR 
FOSS 
Fog 4 
FOBS 
Foo? 
FOaD 
POS e 
Food 
PEN 
F095 


Fogy 


FOGA 
FO9C 
FOSE 


FOAL 
PFOA 
FOR 
FORG 
FOA? 
FORA 
FOAaD 


FORO 
FOR 
Fogg 
FORD 


ADD HL, DE Puts HL at next file 
LD (3806) , HL. Store new NECID?) address 
LD HL, (5808) Get N@(J+5) address 


ADD HL, DE HL at next file (mew Ne ¢7+9) 
address). 
JR FOOLS Go back and sort again 


LO HL, (S806) Start the file swap here. Get 
N@CT) addressa. 

LD DE, (S8O4) Load DE with the extra N# file 
address which is used as Dt in the BASIC 
version. 

LD BC, (5802) Get file length so we know how 

many bytes to move. 


PUSH DE Save DS address 
FUSH BC Save file length 
PUSH HL. Bave N@¢y) address 
LDIF Fut file Nẹ(J) in D$ 
LD HL, (BEDE) Get N (J+H) address 
FOP DE Get NCJ) address 
FOF BC Get length of file 
PUSH HL Save Ne (J+S) 

PUSH EC Save length 

L.D TR Put Nẹ(J+5) in N®CJ) 
POF BC Get length 

FOF DE Get N#(J+5) address 
FOF HL. Get D$ address 

LDIF Put Dt in Nẹ{(J+5) 


LD HL, (5812) Get J value 
LD DE, (SRO) Get S value 


XOR À Clear carry flag 

SEC HL, DE Calculate J-S 

LD (5612), HL. Store new J value 

JR 0, FORI 

Jk Z,FORR If J ig less or equal to zero, 
then go to prep for NEXT N. 

LD A, (GB14) This starts our preparation to 
go line 1150. First get FLAG. 

CE Oo Compare FLAG to zero 

JR NZ., FOAS Jump if FLAG already set 


LD HL, (SBO4) If FLAG is not set, we must 
save the present address of N#(J), sa first 
get NLD) address. 

PUSH HL. Save Në CD address 

LD HL, (BROR) Get N&(J+S) address to save too 

PUSH Hi. Save it 
INC A Make A register held 1 

LD (SR14),48 Use it to set FLAG 

LD HL, (5806) Get N$ (D address 

LD (SEO), HL Fut it in N@(J+5). This 

allows for LET J=J~s. 

PUSH HL Save address of N&®(J+5) 

LO BC, (SOS) Get file length 

LD DE, (5B0C) Get S value 

XOR A Clear carry flag 


v 


LAER 7 4 


‘ 4 


FOBA SBC HL, BC 
FOBC DEC DE 
FORD LD A,D 


FORE OR E 

FORF JR NZ, FORS These adjust the address of 
N@(7) because of the LET J=J-5 
command. 

FOC? LD (5B06) , HL Store new NCS) address 

Fogga FOF HL. Get N$ {(J+5) address 

FOCS JR Füb6 Now go back to sort again. The 


jump is too far for a relative jump so it is 
done in two steps. First to FO66 which then 
goes to FO1S., 


The variables are all found in the printer buffer as fo 
llowss 


HROO-SROL (2E296-73 X value from BASIC 
SBOL-SBOS (23298-9) Length of file from BASIC 
BOJ- BROD (27400-1) Extra file address from BASIC 
HHOS-SBO7 (23702-5) N03) address 

SROB-SROF (24204-5) NS(J+S) address 
SROG-SHOR (23406-7) M value 

SROC-SROD (23308-9) 5 value 

SROE-SROF (234310-1) M-S value 

5B10-5BR11 (23312-73) N value 

SRLE-SHLS (237814-5) J value 

SE 14 (22316) FLAG 


As always, let me know if you have any better ideas (BA 
SIC or machine code). The address is: Robert C. Fischer 
5 804 Old York Hwy; Apt S-B: Dunlap, TN 37327 

E 


